*******************************************************************************************************************************
*******************************************************************************************************************************
* Documentation for Reproduction of
* Powroznik 2014 TESS Survey Experiment
* TESS Race Discrimination Meta-Analysis
* Stata version 15
* Data available here: http://www.tessexperiments.org/data/powroznik482.html
*******************************************************************************************************************************
*******************************************************************************************************************************

* use "TESS3_156_Powroznik_Client.dta", clear
set more off

*******************************************************************************************************************************
*** Racial groups
*******************************************************************************************************************************

tab PPETHM
gen whiteR = PPETHM
recode whiteR (2/5=0)
tab PPETHM whiteR
gen blackR = PPETHM
recode blackR (1 3/5=0) (2=1)
tab PPETHM blackR
gen hispnR = PPETHM
recode hispnR (1/3 5=0) (4=1)
tab PPETHM hispnR

*******************************************************************************************************************************
*** Treatments
*******************************************************************************************************************************

tab XTESS156

gen whiteT = 0
gen blackT = 0
gen femaleT = 0
gen maleT = 0
gen diabetesT = 0
gen lymphomaT = 0
gen obeseT = 0
gen normalweightT = 0

replace whiteT = 1 if XTESS156==1 | XTESS156==2 | XTESS156==5 | XTESS156==6 | XTESS156==9 | XTESS156==10 | XTESS156==13 | XTESS156==14
replace blackT = 1 if XTESS156==3 | XTESS156==4 | XTESS156==7 | XTESS156==8 | XTESS156==11 | XTESS156==12 | XTESS156==15 | XTESS156==16
replace femaleT = 1 if XTESS156==1 | XTESS156==2 | XTESS156==3 | XTESS156==4 | XTESS156==9 | XTESS156==10 | XTESS156==11 | XTESS156==12
replace maleT = 1 if XTESS156==5 | XTESS156==6 | XTESS156==7 | XTESS156==8 | XTESS156==13 | XTESS156==14 | XTESS156==15 | XTESS156==16
replace diabetesT = 1 if XTESS156<9
replace lymphomaT = 1 if XTESS156>8
replace obeseT = 1 if XTESS156==1 | XTESS156==3 | XTESS156==5 | XTESS156==7 | XTESS156==9 | XTESS156==11 | XTESS156==13 | XTESS156==15
replace normalweightT = 1 if obeseT==1

tab XTESS156 whiteT
tab XTESS156 blackT
tab XTESS156 femaleT
tab XTESS156 maleT
tab XTESS156 diabetesT
tab XTESS156 lymphomaT
tab XTESS156 obeseT
tab XTESS156 normalweightT

*******************************************************************************************************************************
*** Outcome variables
*******************************************************************************************************************************

tab1 Q10 Q11_Environment Q11_Lifestyle Q11_Genetics Q11_BadLuck Q11_TOTAL Q11_Environment_Refused Q11_Lifestyle_Refused Q11_Genetics_Refused Q11_BadLuck_Refused Q11_TOTAL_Refused Q12 Q13 Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 
tab1 Q10 Q11_Environment Q11_Lifestyle Q11_Genetics Q11_BadLuck Q11_TOTAL Q11_Environment_Refused Q11_Lifestyle_Refused Q11_Genetics_Refused Q11_BadLuck_Refused Q11_TOTAL_Refused Q12 Q13 Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21, nol
recode Q10 Q11_Environment Q11_Lifestyle Q11_Genetics Q11_BadLuck Q11_TOTAL Q11_Environment_Refused Q11_Lifestyle_Refused Q11_Genetics_Refused Q11_BadLuck_Refused Q11_TOTAL_Refused Q12 Q13 Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21 (-1=.)
alpha Q10 Q11_Lifestyle Q12 Q13 Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21, item
alpha Q10 Q11_Lifestyle Q12 Q13 Q14 Q15 Q16 Q17 Q18 Q19 Q20 Q21, item std min(6) gen(ALPHA)

sum ALPHA if whiteR==1
di r(sd)
gen ov_white_std = ALPHA/r(sd) if whiteR==1

sum ALPHA if blackR==1
di r(sd)
gen ov_black_std = ALPHA/r(sd) if blackR==1

sum ALPHA if hispnR==1
di r(sd)
gen ov_hispn_std = ALPHA/r(sd) if hispnR==1

*******************************************************************************************************************************
*** Racial manipulation check
*******************************************************************************************************************************

tab Q7
gen MCrace = 0
replace MCrace = 1 if whiteT==1 & Q7==1
replace MCrace = 1 if blackT==1 & Q7==2
tab Q7 whiteT if MCrace==1
tab Q7 whiteT if MCrace==0
tab Q7 blackT if MCrace==1
tab Q7 blackT if MCrace==0

tab MCrace
tab MCrace if whiteR==1
tab MCrace if blackR==1

*******************************************************************************************************************************
*** Main regressions [Unweighted]
*******************************************************************************************************************************

reg ov_white_std blackT femaleT diabetesT obeseT if whiteR==1
reg ov_black_std blackT femaleT diabetesT obeseT if blackR==1
reg ov_hispn_std blackT femaleT diabetesT obeseT if hispnR==1
